home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abh.d64 / sda-only.sda / MAKE.INTRO&BOOT (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  23 lines
  1. 10 AA=3127:REM PROVIDE FOR "A:SDA.MOD" IN KEYBOARD BUFFER
  2. 20 BB=2775:REM SCREEN EDITOR ADDRESS
  3. 30 CC=2874:REM SAVE INTRO SCREEN
  4. 40 DD=3029:REM INTRO SCREEN FROM DISK
  5. 100 PRINT"[147]":POKE53281,0:POKE53281,0:POKE646,1:OPEN15,8,15,"I0":PRINTCHR$(14)
  6. 110 POKE157,0
  7. 250 OPEN5,8,5,"INTRO"
  8. 260 INPUT#15,EN
  9. 270 IFEN<>62THEN320
  10. 280 IFEN=62THENPRINT"[147]":GOSUB330:SYSBB:PRINT""
  11. 290 IFPEEK(684)<>133THEN310
  12. 300 PRINT#15,"S0:INTRO":CLOSE5:OPEN5,8,5,"INTRO,S,W":SYSCC:GOTO350
  13. 310 CLOSE5:CLOSE15:END
  14. 320 PRINT"[147]":SYSDD:GOSUB330:PRINT"":SYSBB:GOTO300
  15. 330 PRINT"[206]OW MAKE A TITLE SCREEN. [201]T WILL BE ";
  16. 340 PRINT"    SHOWN UPON RUNNING THE [211][196][193]. [198]1=[196]ONE.":RETURN
  17. 350 FORI=1TO10:POKE630+I,13:NEXT
  18. 360 POKE646,PEEK(53281):SYSAA
  19. 370 IFPEEK(770)=106ANDPEEK(771)=223THEN390
  20. 380 PRINT"[147]LOAD"CHR$(34)"ARC230"CHR$(34)",8":GOTO400
  21. 390 PRINT"[147]/ARC230"
  22. 400 PRINT"SYS679:RUN":POKE198,8:END
  23.